inherited frmHistoricos: TfrmHistoricos
  Left = 258
  Top = 120
  Height = 486
  AutoScroll = True
  Caption = ''
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    inherited Bitnovo: TBitBtn
      ParentFont = False
    end
    inherited Bitgrava: TBitBtn
      ParentFont = False
    end
    inherited Bitcancela: TBitBtn
      ParentFont = False
    end
    inherited Bitedita: TBitBtn
      ParentFont = False
    end
    inherited Bitexclui: TBitBtn
      ParentFont = False
    end
    inherited Bitfecha: TBitBtn
      ParentFont = False
    end
  end
  inherited Panel2: TPanel
    Height = 415
    inherited Panel3: TPanel
      Caption = 'Hist'#243'ricos'
    end
    inherited Panel4: TPanel
      Height = 373
      Font.Name = 'Verdana'
      ParentFont = False
      object Label1: TLabel [0]
        Left = 22
        Top = 18
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
        FocusControl = EdtCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 22
        Top = 59
        Width = 28
        Height = 13
        Caption = 'Nome'
        FocusControl = edtNome
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 156
        TabOrder = 3
        TitleFont.Name = 'Verdana'
      end
      inherited SbHints: TStatusBar
        Top = 350
      end
      object EdtCodigo: TDBEdit
        Tag = 1
        Left = 22
        Top = 31
        Width = 47
        Height = 21
        Hint = 'Codigo do Historico '
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'HIS_IDFCOD'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtCodigoExit
      end
      object edtNome: TDBEdit
        Tag = 1
        Left = 22
        Top = 72
        Width = 297
        Height = 21
        Hint = 'Nome do hist'#243'rico'
        CharCase = ecUpperCase
        DataField = 'HIS_HISTORICO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = edtNomeExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Historico
    Left = 112
    Top = 216
  end
  object SQLC_Historico: TSQLClientDataSet
    CommandText = 'select * from HISTORICOS where his_idfcod=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 114
    Top = 265
    object SQLC_HistoricoHIS_IDFCOD: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'HIS_IDFCOD'
      Required = True
      Size = 3
    end
    object SQLC_HistoricoHIS_HISTORICO: TStringField
      DisplayLabel = 'HISTORICO'
      FieldName = 'HIS_HISTORICO'
      Required = True
      Size = 40
    end
  end
end
